home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•Games Parlour•
/
HyperQuackey 1.1 ••••
/
HyperQuackey 1.1 ееее
/
card_6982.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
2KB
|
76 lines
-- card: 6982 from stack: in.1 –µ–µ–µ–µ
-- bmap block id: 7529
-- flags: 4000
-- background id: 2811
-- name: HQ Preferences
----- HyperTalk script -----
on openCard
global t1, t2, t3
put field "Winning Score" into t1
put field "Playing Time" into t2
put field "Vulnerability Score" into t3
end openCard
on closeCard
global winningScore, playingTime, vulScore, t1, t2, t3
if isNumber(field "Winning Score") then
put field "Winning Score" into winningScore
else put t1 into field "Winning Score"
if isNumber(field "Playing Time") then
put field "Playing Time" into playingTime
else put t2 into field "Playing Time"
if isNumber(field "Vulnerability Score") then
put field "Vulnerability Score" into vulScore
else put t3 into field "Vulnerability Score"
end closeCard
on arrowKey
errorSound
end arrowKey
function isNumber theNum
put true into result
if the length of theNum > 0 then
repeat with i = 1 to the length of theNum
if char i of theNum < "0" or char i of theNum > "9" then
put false into result
exit repeat
end if
end repeat
else put false into result
return result
end isNumber
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=300 right=335 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual effect zoom in
go card "Player 1"
end mouseUp
-- part contents for background part 1
----- text -----
5000
-- part contents for background part 3
----- text -----
2000
-- part contents for background part 2
----- text -----
180